(url-basepath): Add url-basepath as an alias for url-file-directory.

diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index ffa19be50b2b546fef144582f5cde227ce7a7d49..b68e044604cdad9c3c7077e7522f6c275c355e8c 100644 (file)
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -236,6 +236,9 @@ Will not do anything if `url-show-status' is nil."
       (round (* 100 (/ x (float y))))
     (/ (* x 100) y)))
 
+;;;###autoload
+(defalias 'url-basepath 'url-file-directory)
+
 ;;;###autoload
 (defun url-file-directory (file)
   "Return the directory part of FILE, for a URL."